10 REM MENU ROUTINE
15 REM TIM BUIST
16 REM 2723 COLTON ST. E.
17 REM GRAND RAPIDS MI 49506
20 REM ARRAY A$() CONTAINS MENU OPTIONS
30 :
40 A$(1)="EDIT":A$(2)="FORMAT":A$(3)="LOAD":A$(4)="SAVE"
50 A$(5)="LIST":A$(6)="MARGIN"
60 N=6: REM # OF ITEMS
70 GOSUB 110
80 PRINTCHR$(147)"OPTION"I":"A$(I)
85 REM ON I GOTO 1000,2000,3000, ETC.
90 END
95 :
100 REM* MENU SUBROUTINE *
110 CD$=CHR$(17): CU$=CHR$(145)
115 HI$="": OFF$="[146]"
120 AA=(25-N*2)/2
125 PRINT"[147][213]SE CURSOR OR JOYSTICK UP/DOWN TO SELECT"
130 FORI=1 TO AA: PRINT: NEXT
140 FORI=1TON: PRINTTAB(20-LEN(A$(I))/2);OFF$;A$(I): PRINT: NEXT
150 PRINT CHR$(19)
160 FORI=1 TO AA:PRINT: NEXT: I=1
170 PRINTTAB(20-LEN(A$(I))/2);HI$;A$(I)
175 GET A$
176 J=PEEK(56320): REM 56321 FOR JOY #2
177 IF J=111 THEN A$=CHR$(13)
178 IF J=125 THEN A$=CD$
179 IF J=126 THEN A$=CU$
180 IF A$<>CD$ AND A$<>CU$ AND A$<>CHR$(13) THEN 175
190 IF A$=CHR$(13) THEN RETURN
200 PRINTCU$;TAB(20-LEN(A$(I))/2);OFF$;A$(I)
210 IF A$=CD$ THEN PRINT: I=I+1: IF I>N THEN 150
220 IF A$=CU$ THEN PRINT CU$CU$CU$;: I=I-1: IFI<1THEN150
230 GOTO170